source(here::here("code/load.R"))

trash <- new.env()
load(here("data/meta_analyses_raw/Inc2020/meta.RData"), envir = trash)
trash$meta |>
    mutate(meta_id = "Inc2020",
           subfield = "CP",
           question = "Does information about corruption reduce candidates' vote share?",
           overall_effect = "no") |>
    select(meta_id,
           subfield,
           question,
           subset = type,
           study_id = author,
           study_year = year,
           estimate = ate_vote,
           std.error = se_vote,
           overall_effect) |>
    write_csv(here("data/meta_analyses_clean/Inc2020.csv"))
rm("trash")
